← Index
NYTProf Performance Profile   
For ../prof.pl
  Run on Wed Dec 14 15:57:08 2022
Reported on Wed Dec 14 16:00:33 2022

Filename(eval 75)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Eval/TypeTiny.pm:8]
StatementsExecuted 2 statements in 7µs
Eval Invoked At/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Eval/TypeTiny.pm line 8
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1112µs2µsEval::TypeTiny::Sandbox::::__ANON__[:9]Eval::TypeTiny::Sandbox::__ANON__[:9]
0000s0sEval::TypeTiny::Sandbox::::__ANON__[:8]Eval::TypeTiny::Sandbox::__ANON__[:8]
0000s0sTypes::Standard::::is_StrictNum Types::Standard::is_StrictNum
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Eval::TypeTiny::Sandbox;
2
# spent 2µs within Eval::TypeTiny::Sandbox::__ANON__[(eval 75)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Eval/TypeTiny.pm:8]:9] which was called: # once (2µs+0s) by Eval::TypeTiny::eval_closure at line 248 of Eval/TypeTiny.pm
sub {
3sub ($) { do { package Type::Tiny; my $val = $_[0];(defined($val) and not ref($val)) && ( $val =~ /\A[+-]?[0-9]+\z/ || $val =~ /\A(?:[+-]?) # matches optional +- in the beginning
4 (?=[0-9]|\.[0-9]) # matches previous +- only if there is something like 3 or .3
5 [0-9]* # matches 0-9 zero or more times
6 (?:\.[0-9]+)? # matches optional .89 or nothing
7 (?:[Ee](?:[+-]?[0-9]+))? # matches E1 or e1 or e-1 or e+1 etc
8 \z/x ); } }
927µs}
10;